"Enter Last Name: "
LAST
.T.
UPPER(M->LAST)
"Enter First Name: "
FIRST
UPPER(M->FIRST)
"Enter Birth Date: "
BIRTH
"@D"
DTOC(M->BIRTH,1)
"Enter Billing Zip Code: "
ZIP
M->ZIP
"Enter Address One: "
ADDR_1
PADR(SUBSTR(UPPER(M->ADDR_1),AT(' ',M->ADDR_1)+1),24)+STR(VAL(M->ADDR_1),6)
"Enter Shipping Zip Code: "
SZIP
M->SZIP
SADDR_1
PADR(SUBSTR(UPPER(M->SADDR_1),AT(' ',M->SADDR_1)+1),24)+STR(VAL(M->SADDR_1),6)
"Enter User ID: "
USER_ID
UPPER(M->USER_ID)
"User ID   : "
.t.
SAY SCHEME 2
"Enter Company ID or Family ID"
"First Name: "
"Enter First Name/Middle Initials"
"Last: "
"Enter Last name"
"Billing Address"
GR+/B
"Shipping Address"
"Address 1 : "
"Enter First Address Line"
"Address 2 : "
ADDR_2
"Enter Second Address Line"
"City/State: "
CITY
"Enter City Name"
", "
STATE
"!!"
"Not a two character state ID"
"Enter Two Character Abbreviation"
LEFT(' '+PROMPT(),1)
"       Zip: "
"Enter Zip Code"
""
M->ADDR_1
"Enter First Shipping Address Line"
SADDR_2
M->ADDR_2
"Enter Second Shipping Address Line"
SCITY
M->CITY
"Enter Shipping City Name"
SSTATE
M->STATE
"Enter Shipping Zip Code"
"Sex: "
SEX
"!"
"M"
"Select [M]ale, or [F]emale"
PROMPT()
"Status: "
STATUS
"S"
"Select [S]ingle or [M]arried"
"Head of HouseHold: "
HOUSE
"Y"
"N"
"Head of Household (Y or N)? "
"Home Phone: "
HOME
"(999) 999-9999"
M->WORK
"(   )    -    "
"Enter home phone number"
"Work Phone: "
WORK
M->HOME
"Enter work phone number"
"Social Security: "
SS_NO
"999-99-9999"
"   -  -    "
"Enter Social Security Number"
"     Birth: "
"Enter Birth Date"
fnAGE(M->BIRTH)
"   Wedding: "
WEDDING
OMIT
iiF(M->STATUS='M',M->WEDDING,{  /  /  })
fnAGE(M->WEDDING)
M->STATUS = 'M'
"Enter Wedding Date"
"    Active: "
ACT_DATE
SCHEME IIF(M->ACT_DATE=DATE(),7,1)
DATE()
"Enter Active Date"
BOL_1
"*CT "+cPR_FLD11
:P="Y"
cPR_FLD12
BOL_2
"*CT "+cPR_FLD21
cPR_FLD22
BOL_3
"*CT "+cPR_FLD31
cPR_FLD32
" Message Memo "
MESS
"MEMO"
"Enter Brief Note"
DOUBLE
M->USER_ID
M->FIRST
M->LAST
"  Address Type: "
cADDR_TYPE
cADDR_TYPE <> " "
"Enter [B]illing, or [S]hipping Address to use in option grid"
M->SEX
M->STATUS
M->HOUSE
M->HOUSE $ " YN"
M->BIRTH
"Enter Begining Birth Date"
M->BIRTH2
"Enter Ending Birth Date"
M->WEDDING
"Enter Begining Wedding Date"
M->WEDDING2
"Enter Ending Wedding Date"
M->ACT_DATE
"Enter Begining Active Date"
M->ACT_DATE2
"Enter Ending Active Date"
M->BOL_1
M->BOL_2
M->BOL_3
" Message Wildcard " DOUBLE
M->MESS
"EDIT"
"Press [Tab] to exit field"
"Index: "
nINDEX
"9"
nINDEX <> 0
"Select Index File"
"Order: "
nORDER
OBJECT nORDER
"*HT \!\?\<Ascending;\<Descending"
nORDER <> 0
"Select Index Order"
MAL
MALED
MALPR
MALSYS
MALUT